Pascal Super Library/Pascal Super Library (CW International)(1997).bin/LIBRARY/TPWENG/PSWADD.PAS

Pascal/Delphi Source File | 1991-07-22 | 542b | 29 lines

program PswAdd;
uses PXEngine, WinCrt, WinTypes;

const TableName = 'Table';
      Password  = 'Password';

var   PxErr: Integer;
      Protected: Bool;

procedure PX(Code : integer);
begin
  writeln(PXErrMsg(Code));
end;

begin
  PX(PXWinInit('MyApp', pxShared));
  PX(PXTblProtected(TableName, Protected));

  if Protected then
  begin
    (* Submit password to system if table protected *)
    PxErr := PXPswAdd(Password);
    if PxErr <> PxSuccess
    then Writeln(PxErrMsg(PxErr));
  end;

  PX(PXExit);
end.